home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PASSRC.ZIP / FORWARD.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-04  |  1.1 KB  |  50 lines
  1.                                 (* Chapter 5 - Program 8 *)
  2. program Forward_Reference_Example;
  3.  
  4. var Number_Of_Times : integer;
  5.  
  6. procedure Write_A_Line(var Count : integer); forward;
  7.  
  8. procedure Decrement(var Index : integer);
  9. begin
  10.    Index := Index - 1;
  11.    if Index > 0 then
  12.       Write_A_Line(Index);
  13. end;
  14.  
  15. procedure Write_A_Line;
  16. begin
  17.    Writeln('The value of the count is now ',Count:4);
  18.    Decrement(Count);
  19. end;
  20.  
  21. begin  (* main program *)
  22.    Number_Of_Times := 7;
  23.    Decrement(Number_Of_Times);
  24.    Writeln;
  25.    Number_Of_Times := 7;
  26.    Write_A_Line(Number_Of_Times);
  27. end.  (* of main program *)
  28.  
  29.  
  30.  
  31.  
  32. { Result of execution
  33.  
  34. The value of the count is now    6
  35. The value of the count is now    5
  36. The value of the count is now    4
  37. The value of the count is now    3
  38. The value of the count is now    2
  39. The value of the count is now    1
  40.  
  41. The value of the count is now    7
  42. The value of the count is now    6
  43. The value of the count is now    5
  44. The value of the count is now    4
  45. The value of the count is now    3
  46. The value of the count is now    2
  47. The value of the count is now    1
  48.  
  49. }
  50.